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rey. on ; Detailed Current Edit History 
SURIT DU = WRITE DIRECT UNFORMATTED 


Page 0 
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.* aaaty y 90: Si 3 FORRTL. SRCIFORWRITDU.MAR: 1 sip d) 
ED 


»TITL FORSWBITE. DU = a Hf Panes for FORTRAN WRIT piaest UNF ORMATTED 
IDENT /1-012/ Le: FORWRITDU.MAR Edit: JAW101 


MARAAARAAARALALALALALSALALA ALLL A ALES ERS RESALES EERE E REESE TERRE REE E EEE R Ra 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


TH 


AON 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAT on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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COOCCCCCOCCOCCOCOOOOOCONROSOOCCOOCOO 


ABSTRACT: 


This module contains the entry point for the FORTRAN 
WRITE gy UNFORMATTED I/O statement. It is ataply 
a call to FORS$SIO_BEG with bits in RO which describe the 
sereaeter List. FORSS$IO_BEG interprets the parameters. 


MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER FORSWRITE DO 

MASK FORSSIO_BEG 

BRW FORSWRITE_Du+2 

This puts the correct mask in entry vector, that is FORSS$IO_BEG entry mask. 

Furthermore this module must only use RO and Ri 

since any other register might not be in the entry mask for FORS$IO_BEG. 
ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: 
T. Hastings, 29-July-78 
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ORSWRITE DU = entr int for FORTRAN WRIT ofrect U 16-SEP-1984 00:04:19 YAX/VMS Macro v04-00 Page 
“012 HISTORY " Detailed Current bdit History 73Eb=1 3c 995 OT 88 FORRTL.SRCJFORWRITDU.MAR; 1 . 3) 


-SBTTL HISTORY ; Detailed Current Edit History | 


puts ‘np them in FORSENTRY_OBJ so that we can arrange to 
oad the foras compiler only when it is needed. 
JBS 26-JUN-19 

1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
for it and FORS$I0_BEG see how much 1/0 initiation time 
improves. JBS 02-JUL-19 

1-008 = Do Likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 

1-009 - Remove all entry points and add FORSREAD_BO; each entry 
point gets its own module do we can selectively, Load 

1-010 - Corres case, ypos in the references to REC and UDF levels. 

1-011 = New parameter format for FORS$IO_BEG. SBL 5-Dec-1979 

1-012 = Change BRW FORS$IO_BEG+2 to JMP G*FORSS$IO_BEG+2. JAW 21-Feb-1981 


: Edit History for Version 1 

6 “10 = Add comment spout vectors. TNH 23-June-78 

86 “12 = Pass arg in RO, not ROR, add comments. TNH 29-July-78 

6 -001 = Update version number and copyright notice. JBS 1B-nov-78 
64 ; I- ; = Change statement type symbols to be LUBSK... JBS 07-DEC-78 

65 ; 1-005 - Change statement t pe symbols to be ISBSK..._ JBS 11-DEC-78 

96 1-004 - "to the PSECT directive. JBS 22-DEC- 

6 1-005 = Add FORSREAD_KF, FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 

68 FORSREAD_IF, FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 

4 A ag FORSREWRITE_SU, 

0 SBL 2-May-1979 

71 ; 1-006 - 

1 

7 

74 

75 

f 

8 


~~ 


SOoOCOSCOSOSCOOOOOOOOoOOSoSoSOS 


SOoooooooooooo 
~ 
o 


fewn—o 


the cf sone | UDF and REC modules. JBS 


SOoooooooooooo 
SOoooooooooooo 


oo 
co 
w 


| 

Remove all entry peiots that need object time formatting, 
n 

} 

| 


H 7 
SURITE_DU od enter petot for FORTRAN WRITE DIRECT U 16-SEP-1984 90: 06:1? AX/VMS 
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=012 DECLARATIONS ~SEP-1984 11:01 +4 toyed 


Macro V04- 
FORRTL.SRCJFORWRITDU.MAR;1 
-SBTTL DECLARATIONS 


; INCLUDE FILES: 


A er: ; Define inter-module FORTRAN symbols 


$ 
SISBDEF 3 Define statement type symbols 


-DSABL GBL ; Declare all external symbols 
EXTRN FORSSIO_BEG ; common 1/0 statement processing 


3+ 

3; The oo references are to make sure the necessary UDF and REC 
; modules are loaded. These are the routines which are called through 
3; the dispatch tables in FORSSDISPAT. 


~-EXTRN FORSSUDF_WUO, FORSSUDF_WU1, FORSSUDF _wU9 


i 
| 
3 EXTERNAL SYMBOLS: 
TEXTRN FORSSREC-WDO, FORSSREC—WD1. FORSSREC—WD9 


SooOooooooooooo 
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NONE 
PSECT DECLARATIONS: 


0900 


; EQUATED SYMBOLS: 


> OWN STORAGE: 


SSSSSSSSSSSSSSSSSS3S3S3S3SS3S3S33S33333 
Doo NONE UM OOO NOM EWI ODO0 NRF UD ODO re ONO OD 
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st 4 4 a 2 — = 2 a ss) 2 ss 2 4 2 


: NONE 


-PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT ,LONG 
| 
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int for FORTRAN WRITE ofr 
DU = WRITE DIRECT UNFORMA 
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TED “SEP-1984 
~SBTTL FORSWRITE_DU = WRITE DIRECT UNFORMATTED 


+ 
FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/0 1y3°ee to perform 
a WRITE DIRECT UNFORMATTED I/0 statement. 


CALLING SEQUENCE: 


CALL sha wag (unit.rl.v, record, 9, Ft.v. 
. err_adr.j.r ce end_adr.j.rJ]) 


INPUT PARAMETERS: 


unit.rl.v Logical unit number 
record_no.rl.v record number to WRITE 
err_a ra jer] optional ERR= address 
end_adr.j.r optional END= address 


IMPLICIT INPUTS: 

NONE except those used by FORSSIO_BEG. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE except those left by FORSSIO_BEG. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE except those of FORSS$IO_BEG. 


FORSWRITE_DU:: .MASK FORS$$IO BEG 
MOVZBL #ISBSK_ST_TY_WDO, RO ; Statement type 
P G*FORS$10_BEG+ 3 branch past call mask 


JM 


END 


FORRTL.SRCJFORWRITDU.MAR; 1 


| 


The working set Limit was 1050 
6686 bytes (14 pages) of virtua 


Macro Library name 


55$DUA28: (SYSLIBIJSTARLET.MLB; 
TOTALS (all Libraries) 


ages. 
Scnory were used to buffer the intermediate code. 


There were 20 pages of symbol table space allocated to hold 187 non-local and 0 local symbols. 
178 source Lines were read in Pass 
9 pages of virtual memory were used to define 


8 object records in Pass 2. 
macros. 


» producin 


monn nem mame emer e meee a 


H Macro Library statistics : 


Macros defined 


~$255$DUA 8: CFORRTL OBJIFORRTL MLB; 1 
4 j 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORWRITDOU/OBJ=OBJ$:FORWRITDU MSRC$:FORWRI TDU/UPDATE=(ENHS$:FORWRITDU) +LI 
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FORSWRITE DU - entry point for FORTRAN WRITE DIRECT U 16-SEP-1984 :04:19 VAX/VMS Ma V04- P 
tadle -SEP-1984 701: AO ANTE CRE SF ONURISOU.MAR: 1 — 
Symbol tabl Ag g 198 90 Bi B 
FORSS1O BEG eeereeee = §6X 
FORSSRE UDO eeneeeee x 
FORSSREC_WD eenereee 8 xX 
FORSSREC _WD9 eeeeeere =X 
FORSSUDF wud eenerere = §=6X 
FORSSUDF “WU eeeeenre x 
FORSERT TE bu 90000000 RG. Ot 
FOR 
Seek ST TeewbU = booo0009 
tem nm nme ew nen am ncaa + 
! Psect synopsis ! 
beer ecer reece ceersen + 
PSECT name Allocation PSECT No. Attributes 
ABS 00000000 < 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
FORSCODE 0000000B ( Star GEE Fel PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
tomas nena nr nee ewreoer eer wee 4 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization OO O00 «08 00:00:01.01 
—y dunce: 138 00:00:01:54 90:00:04.5 
Symbol table sort Q 0: 0:00:19 90:00:00.29 
Pass 2 4 0:00:00.4 0:00:01. 
Symbol table output 3 00: + 3-8 0:00:00.0 
Psect synopsis output 2 00:00:00.0 0:00:00.0 
Cross-reference output 0 82:88: 8-9 00:00:00.0 
Assembler run totals 334 0:00:02. 00:00:11.8 
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